#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;

$_ = "aa111bbxxx";

if(/(.)\g{1}11/){
	say "Match ...!";
}
else{
	say "Not match ,,,!";
}
